home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.5 interfaces / MediaHandlers.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  9.7 KB  |  224 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ************************************************************
  3. ; 
  4. ; Created: Thursday, August 20, 1992 at 12:09 AM
  5. ;  MediaHandler.h
  6. ;  C Interface to the Macintosh Libraries
  7. ; 
  8. ; 
  9. ;  Copyright Apple Computer, Inc. 1991, 1992
  10. ;  All rights reserved
  11. ; 
  12. ; ************************************************************
  13.  
  14. ; $IFC UNDEFINED UsingIncludes
  15. ; $SETC UsingIncludes := 0
  16. ; $ENDC
  17.  
  18. ; $IFC NOT UsingIncludes
  19.  
  20. ; $ENDC
  21.  
  22. ; $IFC UNDEFINED UsingMediaHandlers
  23. ; $SETC UsingMediaHandlers := 1
  24.  
  25. ; $I+
  26. ; $SETC MediaHandlersIncludes := UsingIncludes
  27. ; $SETC UsingIncludes := 1
  28. ; $IFC UNDEFINED UsingMovies
  29.  
  30. (require-interface 'MOVIES)     ; $I $$Shell(PInterfaces)Movies.p
  31. ; $ENDC
  32.  
  33. ; $SETC UsingIncludes := MediaHandlersIncludes
  34.  
  35. (defconstant $handlerHasSpatial #X1)
  36. (defconstant $handlerCanClip #X2)
  37. (defconstant $handlerCanMatte #X4)
  38. (defconstant $handlerCanTransferMode #X8)
  39. (defconstant $handlerNeedsBuffer #X10)
  40. (defconstant $handlerNoIdle #X20)
  41. (defconstant $handlerNoScheduler #X40)
  42. (defconstant $handlerWantsTime #X80)
  43. (defconstant $handlerCGrafPortOnly #X100)
  44.  
  45. (defconstant $mMustDraw #X8)
  46. (defconstant $mAtEnd #X10)
  47. (defconstant $mPreflightDraw #X20)
  48.  
  49. (defconstant $mDidDraw #X1)
  50. (defconstant $mNeedsToDraw #X4)
  51.  
  52. (defrecord GetMovieCompleteParams 
  53.    (version :SIGNED-INTEGER)
  54.    (theMovie (:POINTER :MOVIERECORD))
  55.    (theTrack (:POINTER :TRACKRECORD))
  56.    (theMedia (:POINTER :MEDIARECORD))
  57.    (movieScale :SIGNED-LONG)
  58.    (mediaScale :SIGNED-LONG)
  59.    (movieDuration :SIGNED-LONG)
  60.    (trackDuration :SIGNED-LONG)
  61.    (mediaDuration :SIGNED-LONG)
  62.    (effectiveRate :SIGNED-LONG)
  63.    (TimeBase (:POINTER :TIMEBASERECORD))
  64.    (volume :SIGNED-INTEGER)
  65.    (width :SIGNED-LONG)
  66.    (height :SIGNED-LONG)
  67.    (trackMovieMatrix :MATRIXRECORD)
  68.    (moviePort (:POINTER :CGRAFPORT))
  69.    (movieGD (:HANDLE :GDEVICE))
  70.    (trackMatte (:HANDLE :PIXMAP))
  71.    )
  72.  
  73. (defconstant $kMediaInitializeSelect #X501)
  74. (defconstant $kMediaSetHandlerCapabilitiesSelect #X502)
  75. (defconstant $kMediaIdleSelect #X503)
  76. (defconstant $kMediaGetMediaInfoSelect #X504)
  77. (defconstant $kMediaPutMediaInfoSelect #X505)
  78. (defconstant $kMediaSetActiveSelect #X506)
  79. (defconstant $kMediaSetRateSelect #X507)
  80. (defconstant $kMediaGGetStatusSelect #X508)
  81. (defconstant $kMediaTrackEditedSelect #X509)
  82. (defconstant $kMediaSetMediaTimeScaleSelect #X50A)
  83. (defconstant $kMediaSetMovieTimeScaleSelect #X50B)
  84. (defconstant $kMediaSetGWorldSelect #X50C)
  85. (defconstant $kMediaSetDimensionsSelect #X50D)
  86. (defconstant $kMediaSetClipSelect #X50E)
  87. (defconstant $kMediaSetMatrixSelect #X50F)
  88. (defconstant $kMediaGetTrackOpaqueSelect #X510)
  89. (defconstant $kMediaSetGraphicsModeSelect #X511)
  90. (defconstant $kMediaGetGraphicsModeSelect #X512)
  91. (defconstant $kMediaGSetVolumeSelect #X513)
  92. (defconstant $kMediaSetSoundBalanceSelect #X514)
  93. (defconstant $kMediaGetSoundBalanceSelect #X515)
  94. (defconstant $kMediaGetNextBoundsChangeSelect #X516)
  95. (defconstant $kMediaGetSrcRgnSelect #X517)
  96. (defconstant $kMediaPrerollSelect #X518)
  97.  
  98.  
  99. (deftrap _MEDIAINITIALIZE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (GMC (:POINTER :GETMOVIECOMPLETEPARAMS)))
  100.    (:STACK :SIGNED-LONG)
  101.    (:STACK-TRAP #xA82A :D0 0 CI GMC ((+ (ASH 4 16) 1281) :SIGNED-LONGINT)))
  102.  
  103. (deftrap _MEDIASETHANDLERCAPABILITIES ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (FLAGS :SIGNED-LONG) (FLAGSMASK :SIGNED-LONG))
  104.    (:STACK :SIGNED-LONG)
  105.    (:STACK-TRAP #xA82A :D0 0 CI FLAGS FLAGSMASK ((+ (ASH 8 16) 1282) :SIGNED-LONGINT)))
  106.  
  107. (deftrap _MEDIAIDLE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (ATMEDIATIME :SIGNED-LONG) (FLAGSIN :SIGNED-LONG) (FLAGSOUT (:POINTER :SIGNED-LONG)) (MOVIETIME (:POINTER :TIMERECORD)))
  108.    (:STACK :SIGNED-LONG)
  109.    (:STACK-TRAP #xA82A :D0 0 CI ATMEDIATIME FLAGSIN FLAGSOUT MOVIETIME ((+ (ASH 16 16) 1283) :SIGNED-LONGINT)))
  110.  
  111. (deftrap _MEDIAGETMEDIAINFO ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (H :HANDLE))
  112.    (:STACK :SIGNED-LONG)
  113.    (:STACK-TRAP #xA82A :D0 0 CI H ((+ (ASH 4 16) 1284) :SIGNED-LONGINT)))
  114.  
  115. (deftrap _MEDIAPUTMEDIAINFO ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (H :HANDLE))
  116.    (:STACK :SIGNED-LONG)
  117.    (:STACK-TRAP #xA82A :D0 0 CI H ((+ (ASH 4 16) 1285) :SIGNED-LONGINT)))
  118.  
  119. (deftrap _MEDIASETACTIVE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (ENABLEMEDIA :BOOLEAN))
  120.    (:STACK :SIGNED-LONG)
  121.    (:STACK-TRAP #xA82A :D0 0 CI ENABLEMEDIA ((+ (ASH 2 16) 1286) :SIGNED-LONGINT)))
  122.  
  123. (deftrap _MEDIASETRATE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (RATE :SIGNED-LONG))
  124.    (:STACK :SIGNED-LONG)
  125.    (:STACK-TRAP #xA82A :D0 0 CI RATE ((+ (ASH 4 16) 1287) :SIGNED-LONGINT)))
  126.  
  127. (deftrap _MEDIAGGETSTATUS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (STATUSERR (:POINTER :SIGNED-LONG)))
  128.    (:STACK :SIGNED-LONG)
  129.    (:STACK-TRAP #xA82A :D0 0 CI STATUSERR ((+ (ASH 4 16) 1288) :SIGNED-LONGINT)))
  130.  
  131. (deftrap _MEDIATRACKEDITED ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)))
  132.    (:STACK :SIGNED-LONG)
  133.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 1289) :SIGNED-LONGINT)))
  134.  
  135. (deftrap _MEDIASETMEDIATIMESCALE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (NEWTIMESCALE :SIGNED-LONG))
  136.    (:STACK :SIGNED-LONG)
  137.    (:STACK-TRAP #xA82A :D0 0 CI NEWTIMESCALE ((+ (ASH 4 16) 1290) :SIGNED-LONGINT)))
  138.  
  139. (deftrap _MEDIASETMOVIETIMESCALE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (NEWTIMESCALE :SIGNED-LONG))
  140.    (:STACK :SIGNED-LONG)
  141.    (:STACK-TRAP #xA82A :D0 0 CI NEWTIMESCALE ((+ (ASH 4 16) 1291) :SIGNED-LONGINT)))
  142.  
  143. (deftrap _MEDIASETGWORLD ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (APORT (:POINTER :CGRAFPORT)) (AGD (:HANDLE :GDEVICE)))
  144.    (:STACK :SIGNED-LONG)
  145.    (:STACK-TRAP #xA82A :D0 0 CI APORT AGD ((+ (ASH 8 16) 1292) :SIGNED-LONGINT)))
  146.  
  147. (deftrap _MEDIASETDIMENSIONS ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (WIDTH :SIGNED-LONG) (HEIGHT :SIGNED-LONG))
  148.    (:STACK :SIGNED-LONG)
  149.    (:STACK-TRAP #xA82A :D0 0 CI WIDTH HEIGHT ((+ (ASH 8 16) 1293) :SIGNED-LONGINT)))
  150.  
  151. (deftrap _MEDIASETCLIP ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (THECLIP (:HANDLE :REGION)))
  152.    (:STACK :SIGNED-LONG)
  153.    (:STACK-TRAP #xA82A :D0 0 CI THECLIP ((+ (ASH 4 16) 1294) :SIGNED-LONGINT)))
  154.  
  155. (deftrap _MEDIASETMATRIX ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TRACKMOVIEMATRIX (:POINTER :MATRIXRECORD)))
  156.    (:STACK :SIGNED-LONG)
  157.    (:STACK-TRAP #xA82A :D0 0 CI TRACKMOVIEMATRIX ((+ (ASH 4 16) 1295) :SIGNED-LONGINT)))
  158.  
  159. (deftrap _MEDIAGETTRACKOPAQUE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TRACKISOPAQUE (:POINTER :BOOLEAN)))
  160.    (:STACK :SIGNED-LONG)
  161.    (:STACK-TRAP #xA82A :D0 0 CI TRACKISOPAQUE ((+ (ASH 4 16) 1296) :SIGNED-LONGINT)))
  162.  
  163. (deftrap _MEDIASETGRAPHICSMODE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MODE :SIGNED-LONG) (OPCOLOR (:POINTER :RGBCOLOR)))
  164.    (:STACK :SIGNED-LONG)
  165.    (:STACK-TRAP #xA82A :D0 0 CI MODE OPCOLOR ((+ (ASH 8 16) 1297) :SIGNED-LONGINT)))
  166.  
  167. (deftrap _MEDIAGETGRAPHICSMODE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (MODE (:POINTER :SIGNED-LONG)) (OPCOLOR (:POINTER :RGBCOLOR)))
  168.    (:STACK :SIGNED-LONG)
  169.    (:STACK-TRAP #xA82A :D0 0 CI MODE OPCOLOR ((+ (ASH 8 16) 1298) :SIGNED-LONGINT)))
  170.  
  171. (deftrap _MEDIAGSETVOLUME ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (VOLUME :SIGNED-INTEGER))
  172.    (:STACK :SIGNED-LONG)
  173.    (:STACK-TRAP #xA82A :D0 0 CI VOLUME ((+ (ASH 2 16) 1299) :SIGNED-LONGINT)))
  174.  
  175. (deftrap _MEDIASETSOUNDBALANCE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BALANCE :SIGNED-INTEGER))
  176.    (:STACK :SIGNED-LONG)
  177.    (:STACK-TRAP #xA82A :D0 0 CI BALANCE ((+ (ASH 2 16) 1300) :SIGNED-LONGINT)))
  178.  
  179. (deftrap _MEDIAGETSOUNDBALANCE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (BALANCE (:POINTER :SIGNED-INTEGER)))
  180.    (:STACK :SIGNED-LONG)
  181.    (:STACK-TRAP #xA82A :D0 0 CI BALANCE ((+ (ASH 4 16) 1301) :SIGNED-LONGINT)))
  182.  
  183. (deftrap _MEDIAGETNEXTBOUNDSCHANGE ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (WHEN (:POINTER :SIGNED-LONG)))
  184.    (:STACK :SIGNED-LONG)
  185.    (:STACK-TRAP #xA82A :D0 0 CI WHEN ((+ (ASH 4 16) 1302) :SIGNED-LONGINT)))
  186.  
  187. (deftrap _MEDIAGETSRCRGN ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (RGN (:HANDLE :REGION)) (ATMEDIATIME :SIGNED-LONG))
  188.    (:STACK :SIGNED-LONG)
  189.    (:STACK-TRAP #xA82A :D0 0 CI RGN ATMEDIATIME ((+ (ASH 8 16) 1303) :SIGNED-LONGINT)))
  190.  
  191. (deftrap _MEDIAPREROLL ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (TIME :SIGNED-LONG) (RATE :SIGNED-LONG))
  192.    (:STACK :SIGNED-LONG)
  193.    (:STACK-TRAP #xA82A :D0 0 CI TIME RATE ((+ (ASH 8 16) 1304) :SIGNED-LONGINT)))
  194.  
  195. (deftrap _MEDIASAMPLEDESCRIPTIONCHANGED ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (INDEX :SIGNED-LONG))
  196.    (:STACK :SIGNED-LONG)
  197.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 1305) :SIGNED-LONGINT)))
  198.  
  199. (deftrap _MEDIAHASCHARACTERISTIC ((CI (:POINTER :PRIVATECOMPONENTINSTANCERECORD)) (CHARACTERISTIC :OSTYPE) (HASIT (:POINTER :BOOLEAN)))
  200.    (:STACK :SIGNED-LONG)
  201.    (:STACK-TRAP #xA82A :D0 0 CI CHARACTERISTIC HASIT ((+ (ASH 8 16) 1306) :SIGNED-LONGINT)))
  202.  
  203. ; $ENDC                         ;  UsingMediaHandlers 
  204.  
  205. ; $IFC NOT UsingIncludes
  206.  
  207. ; $ENDC
  208.  
  209. (export '($KMEDIAPREROLLSELECT $KMEDIAGETSRCRGNSELECT
  210.           $KMEDIAGETNEXTBOUNDSCHANGESELECT $KMEDIAGETSOUNDBALANCESELECT
  211.           $KMEDIASETSOUNDBALANCESELECT $KMEDIAGSETVOLUMESELECT
  212.           $KMEDIAGETGRAPHICSMODESELECT $KMEDIASETGRAPHICSMODESELECT
  213.           $KMEDIAGETTRACKOPAQUESELECT $KMEDIASETMATRIXSELECT
  214.           $KMEDIASETCLIPSELECT $KMEDIASETDIMENSIONSSELECT
  215.           $KMEDIASETGWORLDSELECT $KMEDIASETMOVIETIMESCALESELECT
  216.           $KMEDIASETMEDIATIMESCALESELECT $KMEDIATRACKEDITEDSELECT
  217.           $KMEDIAGGETSTATUSSELECT $KMEDIASETRATESELECT $KMEDIASETACTIVESELECT
  218.           $KMEDIAPUTMEDIAINFOSELECT $KMEDIAGETMEDIAINFOSELECT $KMEDIAIDLESELECT
  219.           $KMEDIASETHANDLERCAPABILITIESSELECT $KMEDIAINITIALIZESELECT
  220.           $MNEEDSTODRAW $MDIDDRAW $MPREFLIGHTDRAW $MATEND $MMUSTDRAW
  221.           $HANDLERCGRAFPORTONLY $HANDLERWANTSTIME $HANDLERNOSCHEDULER
  222.           $HANDLERNOIDLE $HANDLERNEEDSBUFFER $HANDLERCANTRANSFERMODE
  223.           $HANDLERCANMATTE $HANDLERCANCLIP $HANDLERHASSPATIAL))
  224. (provide-interface 'MediaHandlers)